      data LMHMbs(2) /11.7000/

      data (RGBb_coef(2,i),i=1,nRGBbc) /
     &     +4.566000D-01,
     &     +1.186600D+00,
     &     +2.390880D+00,
     &     -3.054040D+00,
     &     +1.404900D+00/

!     0.00100     LMR1
      data (mrange(2,1,i),i=1,3) /0,4,1/
      data (rrange(2,1,i),i=1,3) /0,4,1/
      data (alphas(2,1,i),i=1,25) /
     &     +1.50346099257731538046D+01,
     &     +2.82604496789430559289D+00,
     &     -9.81648621516211328242D+00,
     &     +9.56667166719136474740D+00,
     &     -3.13477224724504077713D+00,
     &     +2.07944042796325678779D+00,
     &     -5.06461279977239176020D+00,
     &     +2.03394884719189121824D+01,
     &     -1.93735154009608017134D+01,
     &     +5.75610929539014914980D+00,
     &     -1.05127268925442436398D+01,
     &     +3.68098490829458810936D+01,
     &     -5.91474113982236531228D+01,
     &     +3.16463783616280913691D+01,
     &     -3.65289167448958851381D+00,
     &     +2.22020213350119419715D+01,
     &     -7.77940541900198496705D+01,
     &     +1.05860178274410074550D+02,
     &     -4.94197227165773327329D+01,
     &     +3.82693132506987110375D+00,
     &     -1.12988524726900649853D+01,
     &     +4.13367947020142807446D+01,
     &     -5.60688828217752686101D+01,
     &     +2.71194601089813360772D+01,
     &     -2.72130850772848109642D+00/
      
!     0.00100     LMR2
      data (mrange(2,2,i),i=1,3) /0,5,1/
      data (rrange(2,2,i),i=1,3) /0,5,1/
      data (alphas(2,2,i),i=1,36) /
     &     +1.88453218130641353412D+01,
     &     -1.66303719796976672285D+01,
     &     +2.63222496911415824172D+01,
     &     -2.13131516790098238801D+01,
     &     +8.39818275012596870965D+00,
     &     -1.28795907731821102082D+00,
     &     +4.31329741689262391446D+01,
     &     -1.56619568143149109574D+02,
     &     +2.26032050176760577642D+02,
     &     -1.59897885791484213769D+02,
     &     +5.55606561823480475937D+01,
     &     -7.60112702919777394328D+00,
     &     +2.46987072824178248709D+01,
     &     +4.20629378936399973554D+01,
     &     -2.65767178117826063044D+02,
     &     +3.25730032378355303990D+02,
     &     -1.58371785651665220485D+02,
     &     +2.75938397603546903269D+01,
     &     -9.91381643467949629667D+02,
     &     +3.38104557879559251887D+03,
     &     -4.11533190831385491038D+03,
     &     +2.33454985382554878015D+03,
     &     -6.14157763172000272789D+02,
     &     +5.77076386143955843977D+01,
     &     +1.43797791534433781635D+03,
     &     -5.28916096082312014914D+03,
     &     +6.91057399431488920527D+03,
     &     -4.26364756616708109505D+03,
     &     +1.25783448603752435702D+03,
     &     -1.41377167956629875789D+02,
     &     -5.01761058636202108119D+02,
     &     +1.99253292955415395227D+03,
     &     -2.72417925456980492527D+03,
     &     +1.74907541356862247994D+03,
     &     -5.38448511479686771963D+02,
     &     +6.36637946720314573668D+01/
      
!     0.00100     LMA
      data (mrange(2,3,i),i=1,3) /0,16,2/
      data (rrange(2,3,i),i=1,3) /0,16,1/
      data (alphas(2,3,i),i=1,153) /
     &     +7.69284893177311052568D+05,
     &     -4.60964236746346391737D+06,
     &     +9.24477105650694482028D+06,
     &     +2.96809810085771558806D+06,
     &     -5.47904367331531867385D+07,
     &     +1.38449097585996419191D+08,
     &     -2.05590189063783049583D+08,
     &     +2.11734651675154030323D+08,
     &     -1.60435957671923041344D+08,
     &     +9.17609013885079324245D+07,
     &     -3.99674217866430878639D+07,
     &     +1.32154540634083170444D+07,
     &     -3.26794649031273694709D+06,
     &     +5.86210662802961654961D+05,
     &     -7.21158724758123280481D+04,
     &     +5.44588834510656215571D+03,
     &     -1.90445008267364357835D+02,
     &     +2.21188523097329214215D+07,
     &     -1.37731912987798571587D+08,
     &     +3.57687151988543748856D+08,
     &     -4.63590327267392992973D+08,
     &     +2.01845788407205879688D+08,
     &     +2.87663499872765600681D+08,
     &     -5.59995404294795393944D+08,
     &     +4.26777807943069577217D+08,
     &     -1.24264635254063099623D+08,
     &     -6.53086944807844161987D+07,
     &     +9.24923524751316756010D+07,
     &     -5.24022445798896402121D+07,
     &     +1.83838309755647853017D+07,
     &     -4.26215335990773420781D+06,
     &     +6.40775684917965554632D+05,
     &     -5.69637563759163822397D+04,
     &     +2.28325195741889183410D+03,
     &     -5.86271602527818381786D+07,
     &     +4.78369991991747081280D+08,
     &     -1.74361930468868136406D+09,
     &     +3.76621819705243778229D+09,
     &     -5.37751677961362648010D+09,
     &     +5.35077163876746082306D+09,
     &     -3.80998322478477764130D+09,
     &     +1.97099712467356157303D+09,
     &     -7.60832823835394382477D+08,
     &     +2.42272232218582451344D+08,
     &     -8.05926269997112601995D+07,
     &     +3.11124469145792499185D+07,
     &     -1.09693358577220626175D+07,
     &     +2.84038850674086064100D+06,
     &     -4.84199551332909730263D+05,
     &     +4.84970404654026060598D+04,
     &     -2.17011384837293599048D+03,
     &     +9.83702780789473533630D+08,
     &     -6.23115263299602222443D+09,
     &     +1.74950104067897109985D+10,
     &     -2.85244593670344696045D+10,
     &     +2.95578184637604980469D+10,
     &     -1.97934299705980529785D+10,
     &     +8.07257493996787166595D+09,
     &     -1.50554167974234604836D+09,
     &     -1.18252537929885953665D+08,
     &     -3.70554775613283040002D+06,
     &     +1.23448486340704277158D+08,
     &     -7.41264279707325249910D+07,
     &     +2.09071950705411061645D+07,
     &     -2.96454796610304014757D+06,
     &     +1.18142086018433197751D+05,
     &     +1.92799522383320254448D+04,
     &     -1.90271167151171880505D+03,
     &     +6.69561843877016976476D+07,
     &     +1.56256926101374864578D+09,
     &     -8.75745768682143020630D+09,
     &     +1.94779956266501197815D+10,
     &     -2.33126852312486190796D+10,
     &     +1.55144418171162052155D+10,
     &     -4.34538685387376117706D+09,
     &     -1.24875014824374175072D+09,
     &     +1.36300258540026307106D+09,
     &     -2.47726977709512680769D+08,
     &     -1.37758820791601359844D+08,
     &     +7.42609580452102422714D+07,
     &     -5.21190464590375591069D+06,
     &     -5.56763955730174109340D+06,
     &     +1.98916589357259985991D+06,
     &     -2.82567601932666904759D+05,
     &     +1.54458629248594224919D+04,
     &     -2.91743516387244606018D+09,
     &     +1.43474200087861461639D+10,
     &     -2.97121547997276992798D+10,
     &     +3.29244879152800636292D+10,
     &     -1.97049122193543739319D+10,
     &     +4.44795698088213920593D+09,
     &     +1.68826391791642093658D+09,
     &     -1.34669317233685207367D+09,
     &     +3.03101724866939246655D+08,
     &     -4.99869293617860823870D+07,
     &     +1.42133397069574892521D+07,
     &     +2.69422055173848085105D+07,
     &     -3.11643383659875914454D+07,
     &     +1.40837340470498204231D+07,
     &     -3.33681038689361186698D+06,
     &     +4.13678001847658306360D+05,
     &     -2.12956128078225046920D+04,
     &     +3.83066159035058796406D+08,
     &     -3.57522953798943567276D+09,
     &     +1.00626903613678798676D+10,
     &     -1.31025349462869167328D+10,
     &     +7.85384311503630828857D+09,
     &     -2.41011892096044540405D+08,
     &     -2.56408374643986368179D+09,
     &     +1.39171229309356403351D+09,
     &     -1.44009585297834306955D+08,
     &     -8.26904684745683073997D+07,
     &     -2.38144140223466372117D+06,
     &     +1.79516107555324509740D+07,
     &     -1.88674114853504090570D+06,
     &     -2.42738823937244340777D+06,
     &     +9.99039133402326726355D+05,
     &     -1.56469409353959286818D+05,
     &     +9.15292969974886182172D+03,
     &     +3.09020185410522365570D+09,
     &     -1.36212178749835147858D+10,
     &     +2.66881548670487785339D+10,
     &     -3.03946970897722930908D+10,
     &     +2.17784943226391410828D+10,
     &     -9.40680629512597274780D+09,
     &     +1.39847537299111199379D+09,
     &     +1.10993825469740843773D+09,
     &     -8.73110848697505235672D+08,
     &     +2.50292736143364071846D+08,
     &     +1.06462010817974358797D+07,
     &     -3.22772786734968498349D+07,
     &     +1.01494283884754441679D+07,
     &     -1.02655365919480670709D+06,
     &     -1.37982127262780006276D+05,
     &     +4.30180039417772932211D+04,
     &     -3.02473938756877396372D+03,
     &     -1.56852265694742107391D+09,
     &     +7.15821216061697673798D+09,
     &     -1.43193921312494201660D+10,
     &     +1.61786574433440303802D+10,
     &     -1.08238279920512008667D+10,
     &     +3.66439506765549850464D+09,
     &     +3.04446730119516968727D+08,
     &     -9.95706614031146168709D+08,
     &     +5.34070064296932458878D+08,
     &     -1.68596081582052469254D+08,
     &     +4.50922229884207323194D+07,
     &     -1.64262273564462922513D+07,
     &     +6.76394867549139633775D+06,
     &     -2.05885415643938211724D+06,
     &     +3.96860804045895056333D+05,
     &     -4.34586026756422943436D+04,
     &     +2.06736711765395784823D+03/
      
!     0.00100     HM
      data (mrange(2,4,i),i=1,3) /0,20,2/
      data (rrange(2,4,i),i=1,3) /0,20,1/
      data (alphas(2,4,i),i=1,231) /
     &     +2.66920628896922789863D+04,
     &     +5.69598144516321923584D+06,
     &     -3.36106590539333373308D+07,
     &     +9.25393487313766926527D+07,
     &     -1.64881303894646197557D+08,
     &     +2.12786252918928653002D+08,
     &     -2.02235432385967493057D+08,
     &     +1.36366495759085386992D+08,
     &     -5.89415461827230826020D+07,
     &     +1.05569686857345979661D+07,
     &     +4.26705694591859634966D+06,
     &     -3.31228471217951877043D+06,
     &     +6.44460078807694022544D+05,
     &     +1.79727468496846966445D+05,
     &     -1.14602002866395123419D+05,
     &     +8.73345725996870532981D+03,
     &     +1.03006575184149296547D+04,
     &     -4.45924381157494190120D+03,
     &     +8.75712682690710266797D+02,
     &     -8.97432677867381869419D+01,
     &     +3.90904107825454749658D+00,
     &     -4.66175954969746712595D+06,
     &     +1.44553042693169433624D+07,
     &     -1.38532479348339065909D+07,
     &     +1.61449323716102633625D+07,
     &     -5.04766978015377074480D+07,
     &     +8.52236769195135086775D+07,
     &     -7.52658732323246151209D+07,
     &     +3.77911912456169873476D+07,
     &     -1.05537492595233544707D+07,
     &     +1.23416606663387943991D+06,
     &     +1.07657456006634638470D+04,
     &     +1.43573359232634276850D+05,
     &     -1.42859383483003708534D+05,
     &     +5.63552937440058449283D+04,
     &     -1.09635084253284767328D+04,
     &     +1.32853574780430949431D+03,
     &     -4.14076353943859373885D+02,
     &     +1.47253804236653735416D+02,
     &     -2.47527050904476979554D+01,
     &     +1.91210492011224597597D+00,
     &     -7.05892167374512213840D-02,
     &     +1.02998189728514533490D+07,
     &     -3.48644858077521771193D+07,
     &     +2.46925453657950051129D+07,
     &     +2.65148321726851537824D+07,
     &     -3.81589329059887528419D+07,
     &     +6.93028380426791380160D+05,
     &     +1.99752902745822705328D+07,
     &     -1.14559117107986155897D+07,
     &     +2.16656442928818566725D+06,
     &     -2.71810134198548854329D+05,
     &     +2.68526744210913369898D+05,
     &     -9.77884134982192044845D+04,
     &     -1.53021212986694445135D+03,
     &     +1.19037018096100418916D+04,
     &     -5.85794015733223022835D+03,
     &     +1.56346892706033872855D+03,
     &     -2.75046129788926521087D+02,
     &     +1.01298210263538095433D+02,
     &     -3.87720363616409713359D+01,
     &     +6.66209009612612579332D+00,
     &     -3.93432972239732559050D-01,
     &     -1.23277652244743425399D+07,
     &     +5.31219698912802562118D+07,
     &     -6.70881175458954200149D+07,
     &     +1.38345048209509141743D+07,
     &     +2.72927585462916977704D+07,
     &     -1.06984214016320873052D+07,
     &     -1.07550707413996290416D+07,
     &     +9.12851204341692477465D+06,
     &     -2.45932699648965429515D+06,
     &     +3.79086684429724293295D+05,
     &     -1.15384063428619745537D+05,
     &     +9.37208910898514295695D+03,
     &     +5.50001460585494169209D+03,
     &     +8.99582878278114890236D+02,
     &     +2.17976963642488072992D+02,
     &     -2.90083472695319642298D+02,
     &     -1.06912609256554702597D+02,
     &     +7.44274626977634596869D+01,
     &     -1.32865712570078340349D+01,
     &     +1.15176452822245067864D+00,
     &     -7.52331325998904648644D-02,
     &     +6.81678287605022825301D+06,
     &     -3.98179300438016653061D+07,
     &     +6.65612044507603123784D+07,
     &     -3.76181603687587901950D+07,
     &     -6.56919684995194338262D+06,
     &     +1.43847081179449260235D+07,
     &     -4.06374374651811597869D+06,
     &     +2.91022107704004331026D+05,
     &     -5.34165458237739163451D+05,
     &     +2.58318759598450968042D+05,
     &     -2.04026808616285597964D+03,
     &     -1.91223168630281179503D+03,
     &     -3.69962055497544270111D+03,
     &     -9.23920259961619422029D+02,
     &     +4.11256827202935312471D+02,
     &     +1.26735718583368523582D+02,
     &     -4.68765072065054724249D+01,
     &     +6.13281037162783970729D+00,
     &     -8.50877614045823293942D-01,
     &     -1.89283136262390905280D-01,
     &     +5.75261353234685565705D-02,
     &     -3.55154449666948523372D+05,
     &     +1.30929190946150850505D+07,
     &     -3.15488824688208103180D+07,
     &     +2.70812807114166915417D+07,
     &     -6.85649736623421218246D+06,
     &     -2.40983373484842292964D+06,
     &     +1.08043478886758117005D+06,
     &     +1.11299945145412624697D+05,
     &     +4.58449855702385902987D+04,
     &     -5.80789547527073082165D+04,
     &     -4.28841803810808505659D+03,
     &     +4.99567543157751151739D+03,
     &     -5.59329152251473260549D+02,
     &     +3.66269193209130548894D+02,
     &     -4.12453739939884940213D+01,
     &     -1.03224939821626904290D+01,
     &     -1.26744942581002923987D+01,
     &     +2.50242050167653262704D+00,
     &     +4.89212292141251114952D-01,
     &     +7.41773856600715748508D-04,
     &     -2.14966363670156049293D-02,
     &     -1.71770314663222013041D+06,
     &     +1.02925354974316677544D+06,
     &     +4.75587077003400865942D+06,
     &     -6.94997276824742369354D+06,
     &     +2.96480201554762385786D+06,
     &     +1.05305805605570232728D+05,
     &     -2.38596544252316496568D+05,
     &     -5.79872394392845744733D+04,
     &     +3.01928438393556607480D+04,
     &     +1.89217764968022629546D+03,
     &     -4.88373167221754613365D+02,
     &     +7.01114489071818979937D+02,
     &     -3.17674857603029806796D+02,
     &     -9.41372505874503957557D+01,
     &     +1.83240842852757204184D+01,
     &     +1.08114635042327797976D+01,
     &     -1.76741740095267596544D+00,
     &     +6.94852470861354931664D-01,
     &     -2.89336670178484411942D-01,
     &     -3.66873283517264768896D-03,
     &     +7.64308669905610499340D-03,
     &     +9.98775663821288966574D+05,
     &     -2.18451837998499209061D+06,
     &     +1.40499697486835205927D+06,
     &     +4.46811799451349797891D+04,
     &     -2.46225148374797863653D+05,
     &     -7.05764615857048920589D+04,
     &     +9.16282262372330296785D+04,
     &     -1.90152534930542642542D+04,
     &     +4.91854753979303222877D+03,
     &     -2.98215458946964145071D+03,
     &     -1.24575514575863394384D+02,
     &     +3.07045703026585499629D+02,
     &     +2.56707666795900628642D+01,
     &     -2.55503462019516938142D+01,
     &     -7.83210099348742638803D-01,
     &     +2.75956632611307561831D+00,
     &     -6.89935042869725956294D-01,
     &     -9.58434272104521506330D-02,
     &     +3.10995999077311284509D-02,
     &     +1.11788217615811057148D-02,
     &     -2.50872008751619425190D-03,
     &     -2.56910131149193679448D+05,
     &     +6.59413942707619862631D+05,
     &     -5.99113926101273740642D+05,
     &     +1.79299729173374042148D+05,
     &     +3.57433247453356452752D+04,
     &     -1.71963241067330600345D+04,
     &     -8.07591195715742651373D+03,
     &     +1.64482614549100276236D+03,
     &     +1.58385752216435230366D+03,
     &     -3.77870980619565330016D+02,
     &     -1.99848538469132250839D+01,
     &     -2.99325126666875540593D+01,
     &     +1.39774853358364321565D+01,
     &     +2.38884594919343573594D+00,
     &     -1.77569226381652423008D+00,
     &     +2.51906789777950501641D-01,
     &     -9.35456748727026554668D-02,
     &     +4.71639212726435025358D-02,
     &     -2.76687708834074250132D-05,
     &     -3.76375892191212375881D-03,
     &     +5.43491168280245645454D-04,
     &     +3.26573367579413752537D+04,
     &     -8.28040252641195256729D+04,
     &     +6.32083466612035263097D+04,
     &     +1.10908655478984019283D+04,
     &     -4.24696541649424107163D+04,
     &     +2.13154570304911503626D+04,
     &     -4.01758333934846973534D+02,
     &     -3.02668804705343745809D+03,
     &     +9.00317782135503534846D+02,
     &     -1.71590190988977440156D+01,
     &     -7.58773236769787295941D+00,
     &     -1.47039559521070568593D+01,
     &     +5.86203446077681977755D+00,
     &     -4.35902509094680423729D-01,
     &     -3.96411294687243842549D-01,
     &     +1.90872936553090594147D-01,
     &     -3.63349815421271857274D-02,
     &     +4.18942750214783450613D-03,
     &     -1.95696242731476692869D-03,
     &     +6.55720172656096495292D-04,
     &     -6.89531819695781068207D-05,
     &     -1.79757648979984833204D+03,
     &     +4.21453422482446967479D+03,
     &     -1.45713195934336681603D+03,
     &     -5.27886800091239820176D+03,
     &     +8.07499233626505065331D+03,
     &     -5.33458308189604667859D+03,
     &     +1.84109344300976272280D+03,
     &     -2.89109084486973813455D+02,
     &     +5.54488971681655407053D+00,
     &     -2.55037857514060917197D+00,
     &     +3.28120362746293148248D+00,
     &     -1.43670757857304920435D+00,
     &     +8.25401835544457118665D-01,
     &     -3.05993525251011089239D-01,
     &     +2.31463397238021693914D-02,
     &     +2.54799453700065604844D-02,
     &     -1.16997904598278249649D-02,
     &     +2.34703472519215026668D-03,
     &     -1.64174625118059316908D-04,
     &     -1.87233906354765485458D-05,
     &     +3.01646763959664224869D-06/
      
!     0.00100     Recom
      data (mrange(2,5,i),i=1,3) /0,5,1/
      data (rrange(2,5,i),i=1,3) /0,4,1/
      data (alphas(2,5,i),i=1,30) /
     &     +1.29041924400426033515D+01,
     &     +1.46247169347020422592D+00,
     &     -2.56099379621667111451D+00,
     &     +1.53157682928077298889D+00,
     &     -3.12651080854979501744D-01,
     &     +1.13224784437094316836D+00,
     &     -1.21990615381324185584D+00,
     &     +4.03103598240615390580D+00,
     &     -2.98697934479165105870D+00,
     &     +7.11864900599255223668D-01,
     &     -1.84989977300083419109D+00,
     &     +2.98072414316297784609D+00,
     &     -4.44057678245443998577D+00,
     &     +2.62017135972970738322D+00,
     &     -6.33529954639474812694D-01,
     &     +3.17264901652564645929D+00,
     &     -4.83562740400180235412D+00,
     &     +4.06335321968123874825D+00,
     &     -1.38974858743467533095D+00,
     &     +2.62122104574736836113D-01,
     &     -2.02663383998561608124D+00,
     &     +3.18617136072649298484D+00,
     &     -2.29903125672929053991D+00,
     &     +5.58176645345621169625D-01,
     &     -5.91094511981828871217D-02,
     &     +3.82436170169052624956D-01,
     &     -6.15679347898177353748D-01,
     &     +4.45802375081275292779D-01,
     &     -1.00232559556148334567D-01,
     &     +6.38538257034518188376D-03/
